home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / power basic_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  786b  |  18 lines
  1. 10 input"[147]starting address";sa$:sa=val(sa$)
  2. 20 ifsa<820or(sa>900andsa<2048)or(sa>32643andsa<49152)orsa>53122then10
  3. 30 fori=satosa+121:reada:pokei,a:n=n+a:next
  4. 40 ifn<>16667thenprint"[147]error in data":stop
  5. 50 a=int((sa+11)/256):b=sa+11-a*256:c=int((sa+46)/256):d=sa+46-c*256
  6. 60 pokesa+1,b:pokesa+6,a:pokesa+34,d:pokesa+39,c
  7. 70 print"sys"sa"to use":new
  8. 80 data169,11,141,34,3,169,192,141,35,3,96,165
  9. 90 data123,201,2,240,26,165,122,133,251,165,57,133
  10. 100 data181,165,58,133,182,169,0,133,183,169,46,141
  11. 110 data6,3,169,192,141,7,3,76,51,243,133,252
  12. 120 data165,183,208,18,230,183,169,145,32,210,255,165
  13. 130 data181,133,20,165,182,133,21,76,167,166,165,183
  14. 140 data201,1,208,9,230,183,56,165,251,229,95,133
  15. 150 data253,132,254,196,253,240,13,200,200,177,95,240
  16. 160 data9,164,254,165,252,76,26,167,198,254,169,95
  17. 170 data133,252,169,26,141,6,3,169,167,141,7,3,208,231
  18.